home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / gnu / gnu_smalltalk1_2.lha / SortedCollection.st < prev    next >
Text File  |  1992-02-15  |  4KB  |  144 lines
  1. "======================================================================
  2. |
  3. |   SortedCollection Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbb         16 Mar 91      Class creation now separate statement.
  36. |
  37. | sbyrne     19 Sep 89      Changed to use real method categories.
  38. |
  39. | sbyrne     25 Apr 89      created.
  40. |
  41. "
  42.  
  43. OrderedCollection variableSubclass: #SortedCollection
  44.           instanceVariableNames: 'sortBlock'
  45.           classVariableNames: ''
  46.           poolDictionaries: ''
  47.           category: nil
  48. !
  49.  
  50. SortedCollection comment:
  51. 'I am a collection of objects, stored and accessed according to some
  52. sorting criteria.  I store things using a bubble sort.  My instances have a
  53. comparison block associated with them; this block takes two arguments and
  54. is a predicate which returns true if the first argument should be sorted
  55. earlier than the second.  The default block is [ :a :b | a <= b ], but I
  56. will accept any block that conforms to the above criteria.' !
  57.  
  58. !SortedCollection class methodsFor: 'instance creation'!
  59.  
  60. new
  61.     ^self sortBlock: [ :a :b | a <= b ]
  62. !
  63.  
  64. sortBlock: aSortBlock
  65.     ^super new setSortBlock: aSortBlock
  66.  
  67. !!
  68.  
  69.  
  70.  
  71. !SortedCollection methodsFor: 'basic'!
  72.  
  73. addFirst: anObject
  74.     self shouldNotImplement
  75. !
  76.  
  77. addLast: anObject
  78.     self shouldNotImplement
  79. !
  80.  
  81. at: index put: anObject
  82.     self shouldNotImplement
  83. !
  84.  
  85. add: newObject after: oldObject
  86.     self shouldNotImplement
  87. !
  88.  
  89. add: newObject before: oldObject
  90.     self shouldNotImplement
  91. !
  92.  
  93. add: anObject
  94.     "Add anObject into the collection at the proper place using bubble sort."
  95.     "### not real happy with the way this is coded"
  96.     super addFirst: anObject.
  97.     firstIndex + 1 to: lastIndex do:
  98.         [ :i | (sortBlock value: (self basicAt: i)
  99.                       value: anObject)
  100.                   ifTrue: [ self basicAt: i - 1 put: (self basicAt: i) ]
  101.           ifFalse: [ self basicAt: i - 1 put: anObject.
  102.                      ^anObject ] ].
  103.     self basicAt: lastIndex put: anObject.
  104.     ^anObject
  105. !!
  106.  
  107.  
  108.  
  109. !SortedCollection methodsFor: 'instance protocol'!
  110. sortBlock
  111.     ^sortBlock
  112. !
  113.  
  114. sortBlock: aSortBlock
  115.     "Change the sort criteria for a sorted collection, resort the elements of 
  116.     the collection, and return it."
  117.     | newSortedCollection |
  118.     newSortedCollection _ SortedCollection sortBlock: aSortBlock.
  119.     self do: [ :element | newSortedCollection add: element ].
  120.     ^self become: newSortedCollection
  121. ! !
  122.  
  123.  
  124.  
  125. !SortedCollection methodsFor: 'copying'!
  126.  
  127. copyEmpty
  128.     ^(super copyEmpty) setSortBlock: sortBlock
  129. !!
  130.  
  131.  
  132.  
  133. !SortedCollection methodsFor: 'private methods'!
  134. setSortBlock: aSortBlock
  135.     sortBlock _ aSortBlock
  136. !
  137.  
  138. growTo: anInteger
  139.     | newCollection |
  140.     newCollection _ super growTo: anInteger.
  141.     newCollection setSortBlock: sortBlock.
  142.     ^newCollection
  143. ! !
  144.